(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     28452,        751]
NotebookOptionsPosition[     27333,        711]
NotebookOutlinePosition[     27776,        728]
CellTagsIndexPosition[     27733,        725]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"$Assumptions", "\[Rule]", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"-", "4"}], " ", "*", "l", "*", "c"}], "+", 
      SuperscriptBox["R", "2"]}], "<", "0"}], " ", "&&", " ", 
    RowBox[{"R", "\[Element]", " ", "Reals"}], " ", "&&", " ", 
    RowBox[{"U0", "\[Element]", " ", "Reals"}], " ", "&&", " ", 
    RowBox[{"c", "\[Element]", " ", "Reals"}], " ", "&&", 
    RowBox[{"l", "\[Element]", "Reals"}], " ", "&&", 
    RowBox[{
     RowBox[{"y", "[", "x", "]"}], "\[Element]", " ", "Reals"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"DSolve", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"y", "''"}], "[", "x", "]"}], "+", 
       RowBox[{
        FractionBox["R", 
         RowBox[{"l", "*", "c"}]], 
        RowBox[{
         RowBox[{"y", "'"}], "[", "x", "]"}]}], "+", 
       FractionBox[
        RowBox[{"y", "[", "x", "]"}], 
        RowBox[{"l", "*", "c"}]]}], "\[Equal]", "0"}], ",", 
     RowBox[{
      RowBox[{"y", "[", "0", "]"}], "\[Equal]", "U0"}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"y", "'"}], "[", "0", "]"}], "\[Equal]", "0"}]}], "}"}], ",", 
   "y", " ", ",", "x"}], "]"}]}], "Input",
 CellChangeTimes->{{3.538426020600501*^9, 3.538426166538848*^9}, {
   3.538426196562566*^9, 3.538426225746235*^9}, {3.5384262719208755`*^9, 
   3.5384263317993007`*^9}, 3.538426427786791*^9, {3.538426469348168*^9, 
   3.538426519832055*^9}, {3.538426665457385*^9, 3.538426682032333*^9}, {
   3.5384269345717773`*^9, 3.5384269462054424`*^9}, {3.5384307940635276`*^9, 
   3.5384308040630994`*^9}, {3.538433989414651*^9, 3.538434000473284*^9}, {
   3.5384340447158146`*^9, 3.5384341241753592`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"y", "\[Rule]", 
    RowBox[{"Function", "[", 
     RowBox[{
      RowBox[{"{", "x", "}"}], ",", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", 
            SuperscriptBox["\[ExponentialE]", 
             FractionBox[
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "R"}], "-", 
                 SqrtBox[
                  RowBox[{
                   RowBox[{
                    RowBox[{"-", "4"}], " ", "c", " ", "l"}], "+", 
                   SuperscriptBox["R", "2"]}]]}], ")"}], " ", "x"}], 
              RowBox[{"2", " ", "c", " ", "l"}]]]}], " ", "R"}], "+", 
          RowBox[{
           SuperscriptBox["\[ExponentialE]", 
            FractionBox[
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "R"}], "+", 
                SqrtBox[
                 RowBox[{
                  RowBox[{
                   RowBox[{"-", "4"}], " ", "c", " ", "l"}], "+", 
                  SuperscriptBox["R", "2"]}]]}], ")"}], " ", "x"}], 
             RowBox[{"2", " ", "c", " ", "l"}]]], " ", "R"}], "+", 
          RowBox[{
           SuperscriptBox["\[ExponentialE]", 
            FractionBox[
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "R"}], "-", 
                SqrtBox[
                 RowBox[{
                  RowBox[{
                   RowBox[{"-", "4"}], " ", "c", " ", "l"}], "+", 
                  SuperscriptBox["R", "2"]}]]}], ")"}], " ", "x"}], 
             RowBox[{"2", " ", "c", " ", "l"}]]], " ", 
           SqrtBox[
            RowBox[{
             RowBox[{
              RowBox[{"-", "4"}], " ", "c", " ", "l"}], "+", 
             SuperscriptBox["R", "2"]}]]}], "+", 
          RowBox[{
           SuperscriptBox["\[ExponentialE]", 
            FractionBox[
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "R"}], "+", 
                SqrtBox[
                 RowBox[{
                  RowBox[{
                   RowBox[{"-", "4"}], " ", "c", " ", "l"}], "+", 
                  SuperscriptBox["R", "2"]}]]}], ")"}], " ", "x"}], 
             RowBox[{"2", " ", "c", " ", "l"}]]], " ", 
           SqrtBox[
            RowBox[{
             RowBox[{
              RowBox[{"-", "4"}], " ", "c", " ", "l"}], "+", 
             SuperscriptBox["R", "2"]}]]}]}], ")"}], " ", "U0"}], 
       RowBox[{"2", " ", 
        SqrtBox[
         RowBox[{
          RowBox[{
           RowBox[{"-", "4"}], " ", "c", " ", "l"}], "+", 
          SuperscriptBox["R", "2"]}]]}]]}], "]"}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{
  3.538434002445397*^9, 3.53843405617747*^9, {3.538434087541264*^9, 
   3.5384341301397004`*^9}, 3.5384341656697326`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullSimplify", "[", 
  FractionBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox["\[ExponentialE]", 
         FractionBox[
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "R"}], "-", 
             SqrtBox[
              RowBox[{
               RowBox[{
                RowBox[{"-", "4"}], " ", "c", " ", "l"}], "+", 
               SuperscriptBox["R", "2"]}]]}], ")"}], " ", "x"}], 
          RowBox[{"2", " ", "c", " ", "l"}]]]}], " ", "R"}], "+", 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        FractionBox[
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "R"}], "+", 
            SqrtBox[
             RowBox[{
              RowBox[{
               RowBox[{"-", "4"}], " ", "c", " ", "l"}], "+", 
              SuperscriptBox["R", "2"]}]]}], ")"}], " ", "x"}], 
         RowBox[{"2", " ", "c", " ", "l"}]]], " ", "R"}], "+", 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        FractionBox[
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "R"}], "-", 
            SqrtBox[
             RowBox[{
              RowBox[{
               RowBox[{"-", "4"}], " ", "c", " ", "l"}], "+", 
              SuperscriptBox["R", "2"]}]]}], ")"}], " ", "x"}], 
         RowBox[{"2", " ", "c", " ", "l"}]]], " ", 
       SqrtBox[
        RowBox[{
         RowBox[{
          RowBox[{"-", "4"}], " ", "c", " ", "l"}], "+", 
         SuperscriptBox["R", "2"]}]]}], "+", 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        FractionBox[
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "R"}], "+", 
            SqrtBox[
             RowBox[{
              RowBox[{
               RowBox[{"-", "4"}], " ", "c", " ", "l"}], "+", 
              SuperscriptBox["R", "2"]}]]}], ")"}], " ", "x"}], 
         RowBox[{"2", " ", "c", " ", "l"}]]], " ", 
       SqrtBox[
        RowBox[{
         RowBox[{
          RowBox[{"-", "4"}], " ", "c", " ", "l"}], "+", 
         SuperscriptBox["R", "2"]}]]}]}], ")"}], " ", "U0"}], 
   RowBox[{"2", " ", 
    SqrtBox[
     RowBox[{
      RowBox[{
       RowBox[{"-", "4"}], " ", "c", " ", "l"}], "+", 
      SuperscriptBox["R", "2"]}]]}]], "]"}]], "Input",
 CellChangeTimes->{{3.538434180713593*^9, 3.5384341851268454`*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"-", 
     FractionBox[
      RowBox[{"R", " ", "x"}], 
      RowBox[{"2", " ", "c", " ", "l"}]]}]], " ", "U0", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      SqrtBox[
       RowBox[{
        RowBox[{
         RowBox[{"-", "4"}], " ", "c", " ", "l"}], "+", 
        SuperscriptBox["R", "2"]}]], " ", 
      RowBox[{"Cosh", "[", 
       FractionBox[
        RowBox[{
         SqrtBox[
          RowBox[{
           RowBox[{
            RowBox[{"-", "4"}], " ", "c", " ", "l"}], "+", 
           SuperscriptBox["R", "2"]}]], " ", "x"}], 
        RowBox[{"2", " ", "c", " ", "l"}]], "]"}]}], "+", 
     RowBox[{"R", " ", 
      RowBox[{"Sinh", "[", 
       FractionBox[
        RowBox[{
         SqrtBox[
          RowBox[{
           RowBox[{
            RowBox[{"-", "4"}], " ", "c", " ", "l"}], "+", 
           SuperscriptBox["R", "2"]}]], " ", "x"}], 
        RowBox[{"2", " ", "c", " ", "l"}]], "]"}]}]}], ")"}]}], 
  SqrtBox[
   RowBox[{
    RowBox[{
     RowBox[{"-", "4"}], " ", "c", " ", "l"}], "+", 
    SuperscriptBox["R", "2"]}]]]], "Output",
 CellChangeTimes->{3.5384341899491215`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"c", "*", 
  RowBox[{
   SubscriptBox["\[PartialD]", "x"], 
   FractionBox[
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"-", 
       FractionBox[
        RowBox[{"R", " ", "x"}], 
        RowBox[{"2", " ", "c", " ", "l"}]]}]], " ", "U0", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SqrtBox[
         RowBox[{
          RowBox[{
           RowBox[{"-", "4"}], " ", "c", " ", "l"}], "+", 
          SuperscriptBox["R", "2"]}]], " ", 
        RowBox[{"Cosh", "[", 
         FractionBox[
          RowBox[{
           SqrtBox[
            RowBox[{
             RowBox[{
              RowBox[{"-", "4"}], " ", "c", " ", "l"}], "+", 
             SuperscriptBox["R", "2"]}]], " ", "x"}], 
          RowBox[{"2", " ", "c", " ", "l"}]], "]"}]}], "+", 
       RowBox[{"R", " ", 
        RowBox[{"Sinh", "[", 
         FractionBox[
          RowBox[{
           SqrtBox[
            RowBox[{
             RowBox[{
              RowBox[{"-", "4"}], " ", "c", " ", "l"}], "+", 
             SuperscriptBox["R", "2"]}]], " ", "x"}], 
          RowBox[{"2", " ", "c", " ", "l"}]], "]"}]}]}], ")"}]}], 
    SqrtBox[
     RowBox[{
      RowBox[{
       RowBox[{"-", "4"}], " ", "c", " ", "l"}], "+", 
      SuperscriptBox["R", "2"]}]]]}]}]], "Input",
 CellChangeTimes->{{3.53843419779057*^9, 3.5384342070550995`*^9}}],

Cell[BoxData[
 RowBox[{"c", " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"-", 
     FractionBox[
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"-", 
         FractionBox[
          RowBox[{"R", " ", "x"}], 
          RowBox[{"2", " ", "c", " ", "l"}]]}]], " ", "R", " ", "U0", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SqrtBox[
           RowBox[{
            RowBox[{
             RowBox[{"-", "4"}], " ", "c", " ", "l"}], "+", 
            SuperscriptBox["R", "2"]}]], " ", 
          RowBox[{"Cosh", "[", 
           FractionBox[
            RowBox[{
             SqrtBox[
              RowBox[{
               RowBox[{
                RowBox[{"-", "4"}], " ", "c", " ", "l"}], "+", 
               SuperscriptBox["R", "2"]}]], " ", "x"}], 
            RowBox[{"2", " ", "c", " ", "l"}]], "]"}]}], "+", 
         RowBox[{"R", " ", 
          RowBox[{"Sinh", "[", 
           FractionBox[
            RowBox[{
             SqrtBox[
              RowBox[{
               RowBox[{
                RowBox[{"-", "4"}], " ", "c", " ", "l"}], "+", 
               SuperscriptBox["R", "2"]}]], " ", "x"}], 
            RowBox[{"2", " ", "c", " ", "l"}]], "]"}]}]}], ")"}]}], 
      RowBox[{"2", " ", "c", " ", "l", " ", 
       SqrtBox[
        RowBox[{
         RowBox[{
          RowBox[{"-", "4"}], " ", "c", " ", "l"}], "+", 
         SuperscriptBox["R", "2"]}]]}]]}], "+", 
    FractionBox[
     RowBox[{
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"-", 
        FractionBox[
         RowBox[{"R", " ", "x"}], 
         RowBox[{"2", " ", "c", " ", "l"}]]}]], " ", "U0", " ", 
      RowBox[{"(", 
       RowBox[{
        FractionBox[
         RowBox[{"R", " ", 
          SqrtBox[
           RowBox[{
            RowBox[{
             RowBox[{"-", "4"}], " ", "c", " ", "l"}], "+", 
            SuperscriptBox["R", "2"]}]], " ", 
          RowBox[{"Cosh", "[", 
           FractionBox[
            RowBox[{
             SqrtBox[
              RowBox[{
               RowBox[{
                RowBox[{"-", "4"}], " ", "c", " ", "l"}], "+", 
               SuperscriptBox["R", "2"]}]], " ", "x"}], 
            RowBox[{"2", " ", "c", " ", "l"}]], "]"}]}], 
         RowBox[{"2", " ", "c", " ", "l"}]], "+", 
        FractionBox[
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "4"}], " ", "c", " ", "l"}], "+", 
            SuperscriptBox["R", "2"]}], ")"}], " ", 
          RowBox[{"Sinh", "[", 
           FractionBox[
            RowBox[{
             SqrtBox[
              RowBox[{
               RowBox[{
                RowBox[{"-", "4"}], " ", "c", " ", "l"}], "+", 
               SuperscriptBox["R", "2"]}]], " ", "x"}], 
            RowBox[{"2", " ", "c", " ", "l"}]], "]"}]}], 
         RowBox[{"2", " ", "c", " ", "l"}]]}], ")"}]}], 
     SqrtBox[
      RowBox[{
       RowBox[{
        RowBox[{"-", "4"}], " ", "c", " ", "l"}], "+", 
       SuperscriptBox["R", "2"]}]]]}], ")"}]}]], "Output",
 CellChangeTimes->{3.5384342079721518`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullSimplify", "[", "%", "]"}]], "Input",
 CellChangeTimes->{{3.538434210995325*^9, 3.538434217414692*^9}}],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"2", " ", "c", " ", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"R", " ", "x"}], 
       RowBox[{"2", " ", "c", " ", "l"}]]}]], " ", "U0", " ", 
    RowBox[{"Sinh", "[", 
     FractionBox[
      RowBox[{
       SqrtBox[
        RowBox[{
         RowBox[{
          RowBox[{"-", "4"}], " ", "c", " ", "l"}], "+", 
         SuperscriptBox["R", "2"]}]], " ", "x"}], 
      RowBox[{"2", " ", "c", " ", "l"}]], "]"}]}], 
   SqrtBox[
    RowBox[{
     RowBox[{
      RowBox[{"-", "4"}], " ", "c", " ", "l"}], "+", 
     SuperscriptBox["R", "2"]}]]]}]], "Output",
 CellChangeTimes->{3.5384342186787643`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"-", "%"}]], "Input",
 CellChangeTimes->{{3.5384342298734045`*^9, 3.5384342318755193`*^9}}],

Cell[BoxData[{
 FractionBox[
  RowBox[{"2", " ", "c", " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"-", 
     FractionBox[
      RowBox[{"R", " ", "x"}], 
      RowBox[{"2", " ", "c", " ", "l"}]]}]], " ", "U0", " ", 
   RowBox[{"Sinh", "[", 
    FractionBox[
     RowBox[{
      SqrtBox[
       RowBox[{
        RowBox[{
         RowBox[{"-", "4"}], " ", "c", " ", "l"}], "+", 
        SuperscriptBox["R", "2"]}]], " ", "x"}], 
     RowBox[{"2", " ", "c", " ", "l"}]], "]"}]}], 
  SqrtBox[
   RowBox[{
    RowBox[{
     RowBox[{"-", "4"}], " ", "c", " ", "l"}], "+", 
    SuperscriptBox["R", "2"]}]]], "\[IndentingNewLine]", 
 RowBox[{"//", 
  RowBox[{"this", " ", "is", " ", "the", " ", "currency"}]}]}], "Input",
 CellChangeTimes->{{3.5384343788079233`*^9, 3.5384343840922256`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"c", "=", "3"}], "\[IndentingNewLine]", 
 RowBox[{"l", "=", "1"}], "\[IndentingNewLine]", 
 RowBox[{"R", "=", "2"}], "\[IndentingNewLine]", 
 RowBox[{"U0", "=", "100"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   FractionBox[
    RowBox[{"2", " ", "c", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"-", 
       FractionBox[
        RowBox[{"R", " ", "x"}], 
        RowBox[{"2", " ", "c", " ", "l"}]]}]], " ", "U0", " ", 
     RowBox[{"Sinh", "[", 
      FractionBox[
       RowBox[{
        SqrtBox[
         RowBox[{
          RowBox[{
           RowBox[{"-", "4"}], " ", "c", " ", "l"}], "+", 
          SuperscriptBox["R", "2"]}]], " ", "x"}], 
       RowBox[{"2", " ", "c", " ", "l"}]], "]"}]}], 
    SqrtBox[
     RowBox[{
      RowBox[{
       RowBox[{"-", "4"}], " ", "c", " ", "l"}], "+", 
      SuperscriptBox["R", "2"]}]]], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "15"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.538437012389556*^9, 3.538437053935932*^9}}],

Cell[BoxData["3"], "Output",
 CellChangeTimes->{3.5384370567260914`*^9}],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{3.5384370567280917`*^9}],

Cell[BoxData["2"], "Output",
 CellChangeTimes->{3.5384370567310915`*^9}],

Cell[BoxData["100"], "Output",
 CellChangeTimes->{3.5384370567330923`*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVlXk4VW0Xxo+pUuZ5PM4+R4rjGEtlepYUkZkjVDJkCInSQClECZWiSDKU
TKWilKGyM5OoEBEZe5GZzMO3v7/29bv29az93Gvd99qYyykrN1YSiTTFQiL9
/znXXVcpGx2vm1Wpn/KGi4RaUsQC9dpPoxeHBV8dcu9CINzkItYehsJyhuui
HMbQOYvcNrb2u0ibpeM3U38V8Y+L3l1se4xMSbtLlYS54fd7s1OzbQXINvOC
8r5iKTCQHemaaitHezhCnhSyKkKGhZldvm8FijVZFRFpUwSW4ILvfhyVKFQi
4H15LgPetwbVTKhVIW6Fc8YsFsqgen1L/tjNGvR6sUaKy0gVpEYUw4f1G1De
3iVJr6AdsNi2695k23cUz21+pi9JE4rUNjllyTcj6wKL+lUWLTh3s13B8WIz
mvpy8VeBpxZM7w3EP5NbUFUn/eXIDm0YySv5m+nWig4fOXg5vlYHfl3V2Xt0
pg1xh561POcLgCvrT9TxdCFV3zOfjY7qw+UowZIQpy5U+3Pe526UPmgP9ofv
KuhCjrPXF3Pe6UNxUrjEU2Y34nnbLGbAvw8KOKr3hyT/RhNTo8wd5fvg+0lZ
M0nhXsSn+pu8IGEAFfpZGd8e9yMkM9LxIPsAqNx6OTxf248s3+5XMvpyAFLa
3ymRJ/rRj7aGnKapA3DhZG2Rl9YA+tY7xnTRNAKlhOEGtpYBFE1jUUyrM4Kk
Efq/nRx/kOuVr2rRPcbgd+fV/iSPIfSJW0s+etIEujuLovCbQ6h9yt1Bh88U
Dsp9avrzegiNGis8rVU2BbnSb/bqpGFU1GRY4+VrCp0D0ycbEoeR6fvG1e5h
UzDYvfP+Wt0IeqPxfP+9n2Yg9bv4j4viGBJHmB/TzAJIM/6JdZZjaHOU3IGY
wxYwsEHBWOX8GCrXd/HM97SAPKWkvNVPYyj1ckladZgF6F4OCkg8NI4GAjkb
pN9awDFpLdbGsAl0/Ah9NELcEr4xum8lj06iCMNjWQHNllC5q+Q/8/VJVNXg
XH+12xLe6t0HNoEppPByUC1s2BKSmGbTJ3ZNIdmiq7Mm65bgEvyRuStsComO
9ElIKljBdEOK1HfRaYS+v1xLu2QFQj7Hcjfqz6CLKt9eRwtbg8LGJ9UWh2bQ
vOuxQ7Yy1gCP//Q98J5Bk718wTzy1uDTflJSMX4GJR0JvmCobQ2V+y7FWAzO
IG1DYesuZ2sIkH7g++D6LDp1Xf9deo41RBX9iup7OIvUZhuPGRVYQ5o1JYv+
ahYNRvmo/i6xhoYbWb8/tM8iOfV3ga2frUF2rtCiT/4f0v2RUjE2ag3Njd/V
6A3/kPAVE48fdBsYOiFiHtDzD9lIPL/hpm4Da+wO3h9m/yHZ3spL/Zo2oKDV
+8Rceg65hEmuPzOygbCsCaEA3zmkfhqS/NxtQC2Ea/493zxa6dV2+JZsA3dV
DUrNmAuouLD/quaqDSh32hvqeC6g1J731Q6sTGgIP9lMv7iA+Mr+7Dy5kQkb
2uP/bkpfQDx1hqWe/Ey4eLlfsmJ0AXkEjlqUyjLh+OeQS7vCF1HWNIfUjwNM
YDkbv0kuYRGRxtyp0qZMSCFnxwvlLqIt3w932Voyod2/6flU0yJ6NM0a99ie
CaZi5K5nkktoZlL978MTTNBwK9WhvF5Cr2Vy3ktfZ0IzT1MdT/US6rc33Rgf
xQS/oj7mavsSSlM5cGv1JhNyt2z27VhbQl0nJc/kxjNBpsAuJd54Gd31ZY3w
SWfC+8M+ClePLiOOWoXU4AwmOHCEvPX3W0ZBx432hGUxId4uq9Hs/jLqEVHg
dc9jwqb1f2ub+pZRyYNbjAdFTHiazRk9P7uMnKavqhuWMmGvlbTon40rSPZM
x8rQByZcerpPuYKxgjRMzJc3VjBh8mDcseDAFcQsTr/7poEJN/9l/vWOWUE8
wpMpLE1MUEgtOe+QuoIeQlP+3m9E/6Z7b++qWkFCg5Vc6a1M+Jmogk/xraLY
j7OhTV1MSGp+xntu6yq6YxkZ/uc3cX+ebceW9qyi+kPW1RO9TGJ/Sa+xuq4i
oZNcaj8HmfDoY6Lp9fPE+T87/Iv/Y4LjouCjLTGrSCGVUyJmmAk9vpu1hQpX
0fllieZNY0xIz4mITqxbRUFSEQsF40xwGSB1SnWvIm/fuXzzSSYM2M8Hbt24
hjo0dm1xnmHC0L6Bdxr2a0hL6svlgQUm5Fw5trH05BoaVhfzkV1igldJhy0K
W0PL/o16h5aZMKr87Z/hszVUExzz9d4qE/K8TPY3lK0hs7KElPQ1Jvg+rYm3
aFlDQRuEr6StE/2T+Khuv0rUnz6Ufp7FFvKZe6528a8jkUX+BXNWWzgd++a7
s9w6mvwkFy3JZgvqn5WpfzTX0c2sLW4dBM9yPPP3Ml9H89w7YmPYbaEQ5D6N
u66jaEd+UTUOWzh3MZ3vzIV11MUmyP6Z4F1vpZzmY9ZRuVum86ENtrAwmfDy
Yvo6MhvU0GwjuJguuL5euI562hmJxhttIcj9lll4/TqSj5yOyCdYK50zZdPv
daS9fYSba5MtrHSGj8XMrKOMtvOaDgQ7bglJ2cROgtCkFeFkgsuydaqNeUiQ
atuW+41gisHyWIwYCR42HWdbJjikv0i4iUoCrifr8mKcttATck6Hn0GC3H0k
eXmC9cg73Kx3keDK0vvNSgQ/Lp2KuadHApmfN37KEcxq//JN20ES/CgrShUk
2GXO55e4LQkmbB54zBL1K+IU2I84kWCOJVCrjmBZ1SF6ihcJZiYeb71LcHjj
U+ueABKUsDmpmBM84O16kXqFBHodc24kgvdzYk+O3yDBn8pnX58S+jMzu+sz
40jwuQoPQgRv2Jc8PfSIBLtjzvp+Ifrn3msvQc8m6vttfGtOcM1l0b0nC0iQ
eTr/cDXR/8jiu3emqkmQOMEYiSXmNWRrUaz+jQQ+EV7/DRDzNJrl7j3bSYKD
7nHeDII3K99QWZoggdEbV9Vkwh9eDQZ22kskWP3lfL2cZAv1J9hDLrOzwCS+
GNNF+Ck640oTqzgLiPLcaJoi/Ge844SAMI0FfrZ9Yp9cIfJeacXcxmABvZ2y
gf2EX8P7t3Ye1GMBZ7OM/bmLRN7P8JIdD7LACf/OV8GE30lsi05+TBZInvQN
NZgn8k9t+BN/gqh/o+JC0SwTNAsK5bPOsEDQr6iC/+dlQS/VpziYBdBSyXnS
NBPOOp+e7rrDAgtahvXkCcL/aWJrciUs0KCPPfg9xARFFVa9PZUsYHzUcpcG
kd+Rsr9XDzaygIDQzedhRL49fn/k9OtjAW2+Or1VIv9OZDfh4s2s0CyoQg7q
YIJlcr7iwcOs0NMh8yWpjgl8ig9PHXVjBbJ4BrKuYUJjaXjBqVOs4Odzk8xa
RfSj89Du+KusMFkRaaCPE3ol1vS7nrHCXN5hPZu3TNiRaHz41AorXChS/VuU
xoTpbTtSQjewQS75zplfj5jw6p10bxwfGxyoX1qaS2ICo23SvUiWDf68Uqfz
32OCnEjCaRZTNrDIvMHTGckE0fj+G3GP2KD1WM6nBl8miNELwxcy2cBpo6h9
qjcTJMqvXTn6ig2ML9xO8PJkAnlS/uy2CjaY8gyS++vMhK0mfk6lQ2yg6vSc
ec+GCersqxr96uzwQvO2TvxuJpgHiAyo1bPDz+D/2k8u24DFlqHuhGZ2eFSs
I+M6bwNWj4t/rvxih1aV+XHLGRuw/XqkqXqCHazMdQ2k/trAUcUnJQ7CHJDN
oXPveIcNeA8o3wlz4gCOK52Fde9s4LqNke73OQ5Q05GPEPa1AYk3jRKsLBsg
fz7RrNfTBl4I2syrbtkAdk3VwZmuNvDju+OrOzIboGqSXVna3gZkLQOolgc2
gKx7R817fRsoN03d8PXBBnBxj5JuELWBVYN/jV+0N4ITFj1+vNQazuxJP1YX
tgn6N1/PRtNWsG9iKci3fzMoyU+GlR+0hFBtS2eJ3dxQ/b7X34zTHDRfPHhz
uYwXkop+UxdXjcF7YSqklpsfGq6q719jGMICna+bwRSA3NKsczcxfdB69jzt
/n1BeF2coej4UhcmBYydbMuFoGq97sM9kd3QH+Nke3qjCPj9Cgi4cFMVDkyc
NxrUEAVOasQyUtsOf103nXlzRQz4qhtZIookYTRl34eycDF4Xm16595JSRj/
GbLx8w0xECTXhf6gSsKk+eLD3jgxuH/hROjwTQmY0xqp5MkWg6jWrjZrd3Fg
FWoQOfFVDO4sbzi3myIKYpW3S6Qxcci3vqShWiQA+2VFWa+Xi8Mbllup2ybZ
YcjFMFurRhxya/O+FAexQ0z6ebPJz+LA9MwKTeFgh+/k9iT7VnEw2GppcUyK
DRzFH6grDolDjfZ22w+mLHCBR9LtG7cExPmvUMuvLKNnC+RaSXsJMK/TO1UT
8Rfxf5G79WpCAhTyN3xTevpf2dqEytP6WQmI9nCLyDQeLhsR0Ho/sCgBhwsn
P+aOj5SV25mPiLFLQva5QcxBbbzs9MB5g1AxSQjWSVBTtpkua1muXbPUkwS5
tzvUM7MWyu4reJ+auSsJtiFHq1tcWPEw07PXuBMloZWrpLoCZ8V9/a482vZI
EqIVDvXZkdlwg7dxnw9nSYLVBo7vZ9vZ8Hm999sqSyXB8VO/R/ABDtzOnrsn
fkASHlZ4negQ3YRLRr600NCQApMFidbIAG48+0VexaKmFBw5c7Fm6hM3rtH6
TOMDkoIXxkWWvLw8uBU1W2qfkRRMc9lHe2bz4FHv04Ysj0iBbOjQ1vttvPjS
5J2Qk2FSIG4t77IoyI//tA94ldEoBXsTjLLzDgji7iGnaZ7NUoCtv+gr9xLE
ZzP97tPbpWDePnH8dYwgzjfrc6mgVwr4VB/nyX8VxA/ccjuAz0rBg74aRTem
EF5UbtvTKSENxZJ+HtvshfEE+h4+QQ9peP1k5o+6gShuc/BL7EdvaXhVHpFg
6CqK83k783v5ScN/KcqCmiGieFTuDYFPgdIwYB6WUlosil+W7xA6FSMNTf7G
J9ToYvjxbRfFP+dLw7VwGZaljeK4Cu0D9eqKNNguJ1UczJHAx/ZaPlFiIcO7
9JFKy3IJPNdlkNbBQYagH5oquzslcNpj7q2qvGTgwHsDM7kkcRHMcdtvjAyZ
LUamm30l8RXyOl3LkAyWBkrpSwpSeJ2E3s6ZO2SImmrEft2UxhvJL+XYE8hw
fvuWheYMabyFKi0mnEwGu7m4lOxSabxHYXFJI5MMJtIBj4eGpPF5zXw8qIQM
F3blnqrSI+NbD2MmrP1kOLtufJlljIyHPmRx5d8hA+7KH6LXhSj4tdRTNtQ9
MpBWcy3GnkzBY5507VfXlYEeubN8T7ZR8MRnxduZB2TAezG8il2Tgr8s9R9P
PCIDzTkiv9kcKXhXZ28gJUIGCufnshceU/A9UuWxyj9kwCUxLH6ZguE9NNnu
4Q4Z0G/4j61jG4ZH0q/RM37LwBTHEP8zJQxv1zSuFhuWgZOa27dt1cbwc/bf
l1lWZOCVVBV7kC2G2x/0Vx/ho8AZ8o2155EYrmhOdTAUpEDjmMPnolsYTrJu
DskQpoDaeu7zd/EYnu2ws9FRggI30YH6W2kYPn9i0bOZRoEnp/nhyTsMvxcZ
mvJegwJcv8jR3v0Y7hmjViW+hwK6THfh50MYrh3b//ecFgUoL/UVesYwfCBh
/x5VoMDpXEN+2gKG78jibHlqRAH1/7Y9EeKi4t+r7nDePkJ8//nDg3mqVDyz
bq/KqCOF2B/rs/IaVDzoy4ytkTMF9JhcqUmaVBxrZWawuVOgAHsiYKdPxf0G
xNGFUxTocFM22GdDxXnYHgc4h1EguEHDcugMFd+wWGY9FU7U/z3is3Ceiq+N
d6mFXqcAr92GlaWLVHyiQ3wqLYYCg9GDD9quUvGvBXdO9tynAPUpdEzcpeK1
2S9N/B5QoC1KOSH+PhXHU77QSckUqD1gL6CYRMXzozhHZNIpkD1e7KmeTsXv
uoS6H3tGgS/J3A8zXlDxKLvU/RN5FAib32nek0/Fw8w+yF55RQFJUV0u3kIq
fkZzsS+lkAKvjqpU7y+l4jYC/se6yyiQWKSjK15DxUXKneyOtlCgNKfHyekX
oa/o8q6xHxQQLhtY+9pN6HuRLBL8kwKq5a6aO3up+PyD9pbkbmJed1petA9S
8XZ/C8tfQxTYa2QWGzNO6PPwVfH5S4GlmDWph5OEvqMxvCtjFBji573zaJqK
FxvVfpGcoYCnpaLN5TkqnoSB8eFVCuQU8R54tUroE3WU/7tOgZnqMP5j64Q+
7kubLrJiEMP/dwsrCw2/uPiuOmkjwcYmRbLsNDxgovWpwmYMVFWTLmVw0HCf
wZnwEi4M2HWu3xfbSMOPfFPW7+DHoGi9faKLk4bb1JhSvYQwAOXrespbaLjJ
B2+WJREMmk56cJ/louE6OVll4lIYDLyA3d08NFwjtSolh4xBtNr5HBY+Gq50
rz94D4YBH+5QLM5Pw8mhMtr2chjMrN79uU2Qhr84s4natR2D5tHEBHEhGq7r
PrXRmY6BmV1SCEmYhh89WNHsqYJB/4XRf3kiNHxU53nxqBoGFk0ecQGiNPyS
yr1Uv50YXOlWv6wiRsOThT28L2hioHKZ1TFSnIYrbrKwXNHGYJ8l7bisBA0v
Xdq9KwRhsHT4289Cgo3HMGn2vRgcq02o0Zak4R2/N7NF7sOgUpakUUyw1/eZ
oS2GGIQ53WXQpWj4UuWvxttGGHTXtry9S3DUu6o3giZEPQ6TjgmCxXNfJCWY
YZAoejFtrzQNz05OCJG0xGCrVT9/NMG7b4e4p1pjEHuYfVcdwbWhJ0xothjo
bT8itkqwXYCVWpYdBiwL7h/lyDR8yF1LjH4Ygy3WqaoGBJ+3l117cRSDng2X
gw4TvMGEe0DNCQNXWlC6O8H3defq3rpg0DC/6aUHwXKqv19qumGQxZvyzJHg
t7Taex89MBhTfpZ6kGADkfyLe70wWLZOi1MiuHVTknO1DwbPcv/e3kjw8eUw
Q+NTGLjFLSb/IO43O+bNaPTHQOnhjoqHBIf32AhaBWDQGMix5RDBQs06i63n
MGjnab60ieCMKrnf9oEY/HBkxV4R/VEv4q3quoiBX+zcuinB5bkLuc6XMQgd
5qP2Ef22etQbOxhCzL/h1W0fgvtu1587cRWDd2/ULceIeZ0Oe31kLAIDq53/
fI8TfMcjYvu/KKKfuYk9O4l5Uxx8eQJvYkCR3r4/lvDDK5NDsyu3MZAlW27r
JfzyVVUeZ7+HQYB2YYQ74ScnWYHMyAQMBsm3BB4SfpsQWY7mIkKWKaStW034
kWel4ZBQKgb5n7TjSIRfU8YLdRLTMQhRkv7CK0D4uzeFJpWBgbXQeLUw4W/T
ar8JWg4GQzrukht4aXhMrNB19dcYFFc6KgVupuFSV1d93hViILdyxQwR+Xp2
9o+VVhEGugFufitE/uodisj6HzC4u6TbcZjIJ+fWI2+tajAYryPRXxH59hJH
xs/qMDhdIuZltEbF67mp3WwNRN7Mn/J0rlDxmLn/OAq/YtBiE/j4v0ViP9We
YYp2EP5d252XOUPFBbyjZztHMbCz69lcTuyj08d8I3dMEHmJSH8z0E/Fm60t
pW5OYZDSHK5I6qPi8dqi+3TniPurpqVhxH4T5XkSl7aOgXyAsTnvDyoulV+i
5iZAhYYL4SceVlLxS08fVX8QokI/lrxsWk7Fux6EOIiIUuF+yIfyxTIqnhJm
EFYjSYUTrfc5dYj9SrH5/k1+KxVCv8TQzxD7eOv8sN/4Lircnrxr9CSZiivp
iL88f5QKG4XZvun6UvHXtBPLrE5UuFW7o7XHi4rv3lxseMuFCts+7qu96EHF
97bZ9WR4UOHlXq2kZCcqbuufyP/dnwpXhq/VRFlR8StPRQMUr1HhQsRRHspO
Yv9yi+zpfUGFrhrVv67/MJw56xbhk0+F8l1thWpTGN7RUfht/jUVqgYKXZdH
if9nFtOLp5gKAwv914IGMHxB795DrQoqSKL3JSrNGI6dE1q710aF3bKyJldf
YvjpboEKYxIN4upoArOuGF5bfeRDLisNNsR18jsfw3Dyy8x3mzloMEPnjKxz
wPD6K5rP6zlpkHemZDzGEsOpmMs9Y0Ea6Bql7O/WxfBvrvkexnI0yGh/J/BK
DMNVhs25jE1oYNXEGrCrjoJPzMQwjRJpMNEVFLxRhoIbKlcnGTFk4fqfnVks
R6XxjzNay/ONsiCkKe2aMi+O+yqqdXxz2wqazeJPPPJEcJ3x4y32nHJQvKwb
NCEhiO+XFTPlfiwHftJurgJFvPj2kKgL5bu2gRPLpW6pXE5cwW1P2daObeCf
LFXPEsuGu330DH/jvx3EznDNWVeulJWltRyfEpYH6aDYkds102Wz2evzyu/k
YTKwtTwwdqDsj61B2o1ieej22TDNZjtQ1s5+80B/qTzsTlgNK5AcKCt1knhw
H5eHbWm3Ky5l9ZeFie3UXK2Th0QO6ZtVeF8ZX6TXpfpf8iAzU31ZbqmnTNGj
leTGqgAa9DNe8nydZa5bn3EmmSqAa07k3hzUUBZU5eglZ6EALUqNA+onPpfF
ugl8LrBSgGjVyPtucfVl758Gxnw+pACt4/5lH4Zry4TkDvCuOisAJz67Rzel
qqxablDI6ZwCmL2wkGgy+VimsF2GIpeqAOkt057O8ffKphTiNAomFYADDSvI
m1ai9gbYLzijAPuD4yXMJioR7jtuHfBPAQxP19UPxVahWwVG/hpLCnC9yW36
yvdqpKBJel7CRgfNiT/ce8zrkIvRSaxChA7/6Ia+s0qNqMXDkKtFmw7oo3Ws
fmUzKuX8J7ET0SH+ktbnZq4W9PjZY/n7enQwXW2WwZgtyG9i1cDOgA6b2384
zwy0IO7zb0J/mdNhT+y84wWWH8jgGjY/4EKHviJlTFipHRVlLPf+i6TDVi8R
YVnbX0hDP2DeOJoOo68lt2ve+4UKe0e50m7SIeD6DiuBll+ogNy9y/guHSAO
0+S07ELPE/GbKQ/p0GK6M1TwQDdKi4nYY/iCDr/on54xhXvQjQDeO4nNdDg5
ELqk2duLNglGZo610iHzYvffpZVedC2f9H5vOx2KzHSVHon1ofDxqT+jv+hg
o6LyNdK8D132bNHW+0MHMUGp/NXSPnT6yIOh4QU63Giq2uNxux857KOBFlkR
5m0cVsIpg2i1ZRNPBUURJB3DBF5qDqI0t/FOY5oi3PMY+frOZhD9uVZ83mG7
Ighss73iFjmITteZvwxUU4QKZreq+vggijK7RC4yUATfOragjNd/UIld68qO
U4rg2NLGvU9uCB0dLql/768IOVppUse0hxApKC1xX4AiqH9NyHCwGkIGD713
2AQqwujX04dngofQ9y4WnzNXFcF70o4jr3kIjbgodeYnKMIY1eKwWeAwkjx5
vVgJV4Tt/squBXkj6Na6+87ockWQEe7L/PRxBLHeNcj/r1IRdHMkJd41jaCR
txw5aXWKoO/ajNtMjaASUniiQLMirMclex9R/4sc4kPOzw0qQj3XI5nsgr8o
sTRw58ctDODrmn4emTKKuMzs8yV4GFAQzCF27vkoCunZzTjPx4DtHe/1D5aM
Ik+OBVkVYQbkVmbz5rWOol3m54QekxlA2f+003zLGPrRd3omQpUB1NBYe+nT
Y0h4s0++6SEG4HeefFFRGkcZ+sFBk/YMaOAxyAvQHEdqwbf0444wINSUzyrZ
YByZTb5qbXdmQN4it1qC4zi69uPfoqsPA1ZO+Gvr3BxHC4+v7A0KZUBmaymr
wyDx/lfsFulwBrQMHb/WNzGOhEQet5RdYwCv156/5kvjSOVGpTtHDAOcl06l
/uSZQCdOcUbH3mdAraTrk1yNCdShFdec+YwBFXZhT6xCJ5Dn2YxkoxcMuJ/N
eVM1agLNvSh0G33FgIsff56ZuzuBBKjt86pvGbAaZB6iljGBDm6SlvqAM+B4
g2nE2aoJ9L4l83hzKwOE46KcH7JMImOeIsa5dgZwmMQN6XJMonbDujmxTgb0
79yy0rppEs2W/I107GEAT07u327eScRIV8kbHmGAd/WOwSPSk+h9h965mDEG
yMYb1jyiEPWErJHyJAO4rwdf+k6bRO7Xz34L+McAoKZdFVUg6uHXkkQXGOD5
QPW/bYxJFLaU4FqyxIDUemU9RZVJxLcjR/HoKgOMdnonyapPopSTJf/W1xnw
8ObrZT6NSfQ/NcYkqg==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 15}, {-9.559384794087144, 88.14343517737323}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.538437056905102*^9}]
}, Open  ]]
},
WindowSize->{911, 545},
WindowMargins->{{44, Automatic}, {Automatic, 45}},
Magnification:>FEPrivate`If[
  FEPrivate`Equal[FEPrivate`$VersionNumber, 6.], 1.5, 1.5 Inherited],
FrontEndVersion->"8.0 for Microsoft Windows (32-bit) (November 7, 2010)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 1756, 44, 100, "Input"],
Cell[2338, 68, 2921, 82, 225, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5296, 155, 2427, 75, 166, "Input"],
Cell[7726, 232, 1194, 40, 121, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8957, 277, 1367, 43, 124, "Input"],
Cell[10327, 322, 3078, 93, 372, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[13442, 420, 131, 2, 43, "Input"],
Cell[13576, 424, 704, 23, 103, "Output"]
}, Open  ]],
Cell[14295, 450, 114, 2, 43, "Input"],
Cell[14412, 454, 795, 24, 150, "Input"],
Cell[CellGroupData[{
Cell[15232, 482, 1047, 30, 229, "Input"],
Cell[16282, 514, 72, 1, 42, "Output"],
Cell[16357, 517, 72, 1, 42, "Output"],
Cell[16432, 520, 72, 1, 42, "Output"],
Cell[16507, 523, 74, 1, 42, "Output"],
Cell[16584, 526, 10733, 182, 351, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
